home *** CD-ROM | disk | FTP | other *** search
/ Windows Expert / Windows Expert.iso / utility / fwzm.zip / FWZMAC.FW3 (.txt) < prev    next >
FrameworkDocument  |  1990-11-15  |  2KB  |  41 lines
  1. ; FWZIP Manager Library macro/kernel
  2. ; FWZIP Manager  
  3.     ; by Gary Reger
  4.         ;VERSION 
  5. 90-11-13
  6. ;                    (c) copyright claimed
  7.     ; by Gary N. Reger CIS # 72416,3377
  8.         ; (c) Copyright claimed
  9. @eraseprompt,
  10. @echo(#off),
  11. @beep(880,10),
  12. @prompt( "  Clearing desktop....."),
  13. @pk("{menu#dc}"),
  14. @echo(#on),
  15. @echo(#off),
  16. @beep(200,40),
  17. @prompt(" Loading FWZIP Manager program overlay....."),
  18. @beep(0,50),
  19. @memavail,
  20. @echo(#off),
  21. @pk("{ctrl-out}"),
  22.     @iserr(@isdocument("FWZipman")),@list(
  23.         @pk("{menu#dg}FWZipman.fw3{RETURN}"))),
  24. @beep(440,1),
  25. ;position on screen
  26. @position("FWZipman",20,1,46,3),
  27. @eraseprompt,
  28. ;reset echo so help prompt will show in left panel
  29. @SETSELECTION("fwzipman"),
  30. @pk("{ctrl-out}{in}{home}{ctrl-out}"),
  31. @if(@frameview=6,@pk("{f10}")),
  32. @echo(#on),
  33. @echo(#off),
  34. @FWZipman,
  35. @ERASEPROMPT,
  36. @echo(#on),
  37. @keyfilter({all}),
  38. @prompt(" FWZIP Manager off. Save FWZipMan.fw3, if you changed any settings.")
  39. rompt("
  40. fwzmac;{Alt-Z};FWZIP Manager version 1.00
  41.